BMUG PD-ROM 1995 Fall/PD-ROM F95.toast/Programming/Programming Languages/UCB Logo 3.0 ƒ/logolib/transfer

Text File | 1992-09-04 | 366 b | 17 lines | [TEXT/ttxt]

to transfer :transfer.limit :transfer.template :transfer.init
output cascade.2 (ifelse emptyp :transfer.limit ~
                         [[emptyp ?2]] ~
                         [se [or emptyp ?2] :transfer.limit]) ~
                 :transfer.template [] [butfirst ?2] :transfer.init
end

to ?in
output first ?2
end

to ?out
output ?1
end

bury [transfer ?in ?out]